library(qtl)

args <- commandArgs()
file_path=args[6]
out_dir=args[7]

cross <- read.cross('csv', '.', file_path)

pdf(paste(c(out_dir,'geneticMap.pdf'), collapse = '/'), width=24, height=18)
plotMap(cross)
dev.off()
